home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / database feb p48 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  118 lines
  1. 10 poke53281,14 :t$="no name"
  2. 20 print"[147]file name":inputt$:print"              please wait":t$=left$(t$,14)
  3. 30 n=1000:p=1:x=(n+1)/10:dims$(n):r$=" line#":gosub810:goto80
  4. 40 k=0
  5. 50 q=0:print"[147]catalog: ";t$"":print"page
  6. 60 [129]j[178]k[164]n:[139][198](s$(j))[178]18[167][153]"cmd"[181](j[173]10[170]1);s$(j):q[178]q[170]1:[139]q[177]10[167]80
  7. 70 [130]j
  8. 80 [141]260:[139]a[178]0[167]80
  9. 90 [145]a[137]40,120,190,220,290,360,410,670,470,520,310
  10. 100 [139]j[179]n[170]1[167]k[178]j:[137]50
  11. 110 [137]40
  12. 120 [153]"page#":[133]a$:p[178][197](a$):[141]270:[139]a[179][177]0[167]90
  13. 130 [139]p[179]1[176]p[177]x[167][153]"ononon":[137]120
  14. 140 [153]"loadpage"p;t$"":[129]i[178]0[164]9:l[178](p[171]1)[172]10[170]i:[153]"cmd"l;s$(l):[130]
  15. 150 [141]260:[139]a[178]0[167]150
  16. 160 [139]a[179][177]12[167]90
  17. 170 p[178]p[170]1:[139]p[177]x[167]p[178]1
  18. 180 [137]140
  19. 190 a$[178]"-1":[153]"enter"r$:[133]a$:j[178][197](a$):[141]270:[139]a[179][177]0[167]90
  20. 200 [139]j[179]0[176]j[177][181](x)[172]10[170]1[167][153]"ononononon":[137]190
  21. 210 [133]s$(j):[137]1160
  22. 220 a$[178]"-1":[153]"insert"r$:[133]a$:j[178][197](a$):[141]270:[139]a[179][177]0[167]90
  23. 230 [139]j[179]0[176]j[177][181](x)[172]10[170]1[167][153]"ononononon":[137]220
  24. 240 [153]"entry":[133]d$:[153]"inserting":[139]r[178]n[167]140
  25. 250 [141]860:[129]i[178]kk[164]j[170]1[169][171]1:s$(i)[178]s$(i[171]1):[130]:s$(j)[178]d$:[137]1160
  26. 260 e$[178]"c,p,e,i,n,s,l,h,k,a,?wait ":[153][163]9)""e$"cmdonon":[141]630
  27. 270 a[178]0:[129]i[178]1[164]13:[139][202](e$,i[172]2[171]1,1)[178]a$[167]a[178]i:i[178]13
  28. 280 [130]i:[142]
  29. 290 [141]660:[139]a$[179][177]"y"[167]40
  30. 300 [153]"new file name":[133]t$:[141]810:[137]40
  31. 310 [153]"loadcwaitatalog":[153]"call pwaitage":[153]"iwaitnsert"r$
  32. 320 [153]"ewaitnter"r$:[153]"kwaitill"r$:[153]"awaitlphabetize":[153]"nwaitew file"
  33. 330 [153]"lwaitoad from tape or disc":[153]"swaitave to tape or disc"
  34. 340 [153]"?wait definitions":[153]"hwait list to printeron":[141]260:[139]a[178]0[167]310
  35. 350 [137]90
  36. 360 [153]"loadstopsave to tape or disc":[141]660:[139]a$[179][177]"y"[167]40
  37. 370 [153]"dwaitisc or twaitape?":[141]630:[139]a$[178]"t"[167]400
  38. 380 [139]a$[179][177]"d"[167]40
  39. 390 [159]2,8,2,"@0:"[170]t$[170]" (NULL),s,w":j[178]2:[137]890
  40. 400 [159]1,1,1,t$:j[178]1:[137]890
  41. 410 [153]"loadload from tape or disc":[141]660:[139]a$[179][177]"y"[167]40
  42. 420 [153]"dwaitisc or twaitape?":[141]630:[139]a$[178]"t"[167]460
  43. 430 [139]a$[179][177]"d"[167]40
  44. 440 [141]970:[153]"file name?":[133]n$:[139]n$[178]""[167]40
  45. 450 [159]2,8,2,"0:"[170]n$[170]" (NULL),s,r":j[178]2:[137]930
  46. 460 [159]1,1,0:j[178]1:[137]930
  47. 470 [153]"kill"r$:[133]a$:j[178][197](a$):[141]270:[139]a[179][177]0[167]90
  48. 480 [139]j[179]0[176]j[177]n[167][153]"onon":[137]470
  49. 490 [129]i[178]j[164]n[171]1:[139]s$(i)[178]"tan"[175]s$(i[170]1)[178]"tan"[167]i[178]n[171]1:[137]510
  50. 500 s$(i)[178]s$(i[170]1):[141]650
  51. 510 [130]:s$(n)[178]"tan":[137]140
  52. 520 [153]"alphabetize  ";:[141]820:u[178][197](a$):[139]u[179]0[176]u[177]n[167][137]80
  53. 530 [139][202](s$(u),1,1)[178]""[167]u[178]u[170]1
  54. 540 [141]830:k[178]0:[129]i[178]u[164]kk:[139][200]((s$(i)),1)[178]""[167]k[178]1:nn[178]i[171]1:i[178]kk
  55. 550 [130]i:[139]k[178]1[167]570
  56. 560 nn[178]kk
  57. 570 i[178]0
  58. 580 j[178]u:[139]i[178]nn[171]u[167]140
  59. 590 [139]j[178]nn[171]i[167]620
  60. 600 [139]s$(j)[177]s$(j[170]1)[167]tp$[178]s$(j):s$(j)[178]s$(j[170]1):s$(j[170]1)[178]tp$
  61. 610 j[178]j[170]1:[137]590
  62. 620 i[178]i[170]1:[151]53280,[181]([187](k)[172]15[170]1):[137]580
  63. 630 [161]a$:[139]a$[178]""[167]630
  64. 640 [142]
  65. 650 [153]""[163]30);i:[142]
  66. 660 [153]"are you sure? y/n":[141]630:[142]
  67. 670 [153]"loadhard copy":[141]660:[139]a$[179][177]"y"[167]40
  68. 680 [153]"entire file?":[141]630:[139]a$[178]"y"[167]f[178]0:m[178]n:[137]710
  69. 690 [141]820:f[178][197](a$):[139]f[179]0[176]f[177]n[137]670
  70. 700 [153]"ending"r$:[133]a$:m[178][197](a$):[139]m[179]0[176]m[177]n[176]m[178][179]f[167]670
  71. 710 [159]4,4:a$[178]"":[129]i[178]1[164][181]((40[171][195](t$))[173]2)
  72. 720 a$[178]a$[170]" ":[130]i:a$[178]a$[170]"wait":[152]4,[199](14)a$[170]t$[170]f$[199](10)[199](10)
  73. 730 ll[178]4:[129]i[178]k[164]n:[139][200](s$(i),1)[178]""[167]760
  74. 740 [139]s$(i)[179][177]"tan"[167][152]4,[199](15)"     "s$(i)[199](10):ll[178]ll[170]2
  75. 750 [137]790
  76. 760 a$[178]"":[129]kk[178]7[164][195](s$(i))[172]6:a$[178]a$[170][199](255):[130]kk
  77. 770 [152]4,"     "g$[170]a$:[152]4,f$[170]"     "[170]s$(i)[170]g$
  78. 780 [152]4,f$[170]"     "[170]g$[170]a$[170]f$[199](10):ll[178]ll[170]4
  79. 790 [139]ll[177]59[167][129]nl[178]ll[164]72:[152]4,[199](10);:[130]nl:[152]4,"":ll[178]3
  80. 800 [130]i:[160]4:[137]40
  81. 810 [129]j[178]0[164]n:s$(j)[178]"tan":[130]j:[142]
  82. 820 [153]"starting"r$:[133]a$:[142]
  83. 830 [129]i[178]n[164]0[169][171]1:[139]s$(i)[179][177]"tan"[167]kk[178]i:i[178]0:[137]850
  84. 840 kk[178]i
  85. 850 [130]i:[142]
  86. 860 [129]i[178]j[170]1[164]n:[139]s$(i)[178]"tan"[167]kk[178]i:i[178]n:[137]850
  87. 870 kk[178]i
  88. 880 [130]i:[142]
  89. 890 [129]i[178]n[164]0[169][171]1:k[178]i:[139]s$(i)[179][177]"tan"[167]i[178]0
  90. 900 [130]i:k[178]k[170]1
  91. 910 [152]j,t$[170]" (NULL)":[152]j,k:[129]i[178]0[164]k
  92. 920 [152]j,s$(i):[141]650:[130]:[160]j:[137]40
  93. 930 [132]j,n$:[139][201](n$,2)[179][177]" (NULL)"[167][153]n$" not found":[141]630:[160]j:[137]40
  94. 940 t$[178]n$:t$[178][200](t$,[195](t$)[171]2):[153]"found "t$:[132]j,k
  95. 950 [139]k[177]n[167][153]"warning:":[153]"file originated from  vic with larger memory":k[178]n
  96. 960 [129]i[178]0[164]k:[132]j,s$(i):[141]650:[130]:[160]j:[137]40
  97. 970 [153]"loaddisc file listing? ":[141]630:[139]a$[179][177]"y"[167][142]
  98. 980 [153]"loadscanning disc"
  99. 990 [159]1,8,0,"$0"
  100. 1000 [161]#1,a$,b$
  101. 1010 [161]#1,a$,b$
  102. 1020 [161]#1,a$,b$
  103. 1030 c[178]0
  104. 1040 [139] a$[179][177]""[167]c[178][198](a$)
  105. 1050 [139] b$[179][177]""[167]c[178]c[170][198](b$)[172]256
  106. 1060 d$[178]d$[170]""[170][202]([196](c),2)[170]"wait"
  107. 1070 [161]#1,b$:[139]st[179][177]0[167][160]1:[153]:[142]
  108. 1080 [139] b$[179][177][199](34)[167]1070
  109. 1090 [161]#1,b$:[139] b$[179][177][199](34)[167]d$[178]d$[170]b$:[137]1090
  110. 1100 [161]#1,b$:[139]b$[178][199](32)[167]1100
  111. 1110 c$[178]""
  112. 1120 c$[178]c$[170]b$:[161]#1,b$:[139]b$[179][177]""[167]1120
  113. 1130 [139][201](d$,1)[178]"(NULL)"[167][153]d$
  114. 1140 d$[178]"":[137]1010
  115. 1150 y[178]y[171]1:[129]i[178]0[164]c:c$(i,p%(l))[178]"tan":[130]i:[129]i[178]l[164]y:p%(i)[178]p%(i[170]1):[130]i:l[178]l[171]1:[142]
  116. 1160 [139][200](s$(j),1)[178]"_"[167]s$(j)[178]""[170][201](s$(j),[195](s$(j))[171]1)
  117. 1170 [137]140
  118.